library(foreign)
library(ggplot2)

rm(list=ls())

###################################################################### 
# Figure 3 -- eCDFs Diagnostic Plot
###################################################################### 

data <- read.dta("./data/turnout_lag.dta")

data$plotf <- ordered(data$understandingclause, levels = c(0,1),
				labels = c("Control", "Treated"))


ggplot(data, aes(x=blackregrate, colour = plotf)) + 
		stat_ecdf()	+
		xlab("Registration Rate 1950") + 
        ylab("Emprical CDFs") +	
        theme(legend.title=element_blank())	+
        scale_color_manual(values=c("#999999", "#E69F00")) +
        theme_bw() +
        theme(legend.title=element_blank())
  
				
ggplot(data, aes(x=whiteregrate, colour = plotf)) + 
		stat_ecdf()	+
		xlab("Registration Rate 1950") + 
        ylab("Emprical CDFs") +	
        theme(legend.title=element_blank())	+
        scale_color_manual(values=c("#999999", "#E69F00")) +
        theme_bw() +
        theme(legend.title=element_blank())
